Chip: Hang es video/CHIP_ZENESZERKESZTO_2005.ISO/audio_3/visual/robotfunk/setup.exe/{app}/main.dxr/ui_160.ls

Text File | 2003-11-19 | 955 b | 41 lines

property md
global preloadlist, select, fpslist, curscript

on mouseDown me
  md = 1
end

on mouseLeave me
  md = 0
end

on mouseUp me
  if md then
    curscript = "savebank"
    savepath = baGetFilename("save", "c:", "untitled.bnk", "Flowmotion Banks|*.bnk", 32, "Save this Bank", 0, 400, 300)
    if savepath = EMPTY then
      exit
    end if
    fileLink = new(xtra("vList"), savepath)
    pl = []
    repeat with i = 1 to 48
      pl[i] = []
      repeat with j = 1 to preloadlist[i].count
        if preloadlist[i].count >= j then
          if preloadlist[i][j].ilk = #image then
            pl[i][j] = preloadlist[i][j].duplicate()
            preloadlist[i][j] = pl[i][j]
          end if
        end if
      end repeat
      pl[i][j + 1] = member(i, "thumbnails").image.duplicate()
      if i < 25 then
        pl[i][j + 2] = fpslist[i]
        next repeat
      end if
      pl[i][j + 2] = 1
    end repeat
    write(fileLink, pl)
  end if
end